﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
dim myid
myid=qingtian.nid
%>
<card title="江湖大厅">
<p>
<%

ids=myid

%>
<%Set Rslp = Server.CreateObject("Adodb.Recordset")
			Sqll = "SELECT top 1 pk,ids,pk1 FROM sx order by pk desc"
			Rslp.Open Sqll,liao,1,1%>
PK王<a href='/userview.asp?id=<%=Rslp("ids")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>'><%=qingtian.name(Rslp("ids"))%>(ID:<%=Rslp("ids")%>)</a>(胜<%=Rslp("pk")%>/败<%=Rslp("pk1")%>)<br/>
<a href='ffbb.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>发布挑战</a>|<a href='qqxx.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>取消发布</a>|

<%Set Rsl = Server.CreateObject("Adodb.Recordset")
if request("act")=1 then
Sqll = "SELECT top 10 id,txt,lid,tm,yc,name,jg FROM tz where jg<>0 order by tm desc"
%>
<a href='tt.asp?cc=<%=cc%>&amp;ve=<%=ve%>'>最新发布</a><br/>
<%
else
Sqll = "SELECT top 10 id,txt,lid,tm,yc,name,jg FROM tz where jg=0 order by tm desc"
%>
<a href='tt.asp?act=1&amp;cc=<%=cc%>&amp;ve=<%=ve%>'>查看战榜</a><br/>
<%
end if
			Rsl.Open Sqll,liao,1,1
			if not (rsl.bof and rsl.eof)  then 
				if rsl.RecordCount>10 then
					aaaaa=10
				else
					aaaaa=rsl.RecordCount
				end if%>

				==PK竞技场==<br/>

				<%For i=1 to aaaaa
					If Rsl.Eof Then
						exit For
					end if%>
<%if rsl("yc")=0 then%>
					<%=i%>.发布者ID：<a href="/userview.asp?id=<%=rsl("lid")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>"><%=qingtian.name(Rsl("lid"))%>(ID:<%=rsl("lid")%>)</a><br/>挑战金额<%=rsl("txt")%>两银子|
<%if rsl("jg")=0 then%>
<anchor>接受<go href="jjss.asp?id=<%=rsl("id")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>&amp;lid=<%=rsl("lid")%>" method="post"><postfield name="je" value="<%=rsl("txt")%>" /></go></anchor><br/>
<%elseif rsl("jg")=1 then%>
[赢]<br/>
<%elseif rsl("jg")=2 then%>
[输]<br/>
<%elseif rsl("jg")=3 then%>
[平]<br/>
<%end if%>
[<%=rsl("tm")%>]<br/>

<%else%>
<%=i%>.发布者：[匿名]<br/>挑战金额<%=rsl("txt")%>两银子|<%if rsl("jg")=0 then%>
<anchor>接受<go href="jjss.asp?id=<%=rsl("id")%>&amp;cc=<%=cc%>&amp;ve=<%=ve%>&amp;lid=<%=rsl("lid")%>" method="post"><postfield name="je" value="<%=rsl("txt")%>" /></go></anchor><br/>
<%elseif rsl("jg")=1 then%>
[赢]<br/>
<%elseif rsl("jg")=2 then%>
[输]<br/>
<%elseif rsl("jg")=3 then%>
[平]<br/>
<%end if%>
[<%=rsl("tm")%>]<br/>
<%end if%>

				<%Rsl.MoveNext
				Next
else
%>没有对战记录！<br/>
<%
			end if
			Rsl.close
			set rsl=nothing
                         
			%>

----------<br/>
<a href="index.asp?cc=<%=cc%>&amp;ve=<%=ve%>">江湖首页</a><br/>

<%qingtian.shuchu%>

